<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<style type="text/css">
<!--


.NormalTex {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 13px;
	color: #333;
	text-align: left;
}
-->
</style>

<script> 
function cerrarse(){ 
window.close() 
} 
</script>

<%
var_asp17 = request("varia1")   ' pot

var_asp15 = request("varia2")    ' nombre2
var_asp16 = request("varia3")  ' nombre1


var_asp18 = request("varia4")    ' nombre2
var_asp19 = request("varia5")  ' nombre1
var_asp20 = request("varia6")    ' nombre2



var_asp = request("varia7")   ' pot
var_asp1 = request("varia8")   ' long
var_asp2 = request("varia9")  ' art 1
var_asp3 = request("varia10")  'art 2
var_asp4 = request("varia11")   'art 3
var_asp5 = request("varia12")   ' tramo ab
var_asp6 = request("varia13")  ' tramo bc
var_asp7 = request("varia14")   ' tramo bd
var_asp8 = request("varia15")   ' tramo de
var_asp9 = request("varia16")    ' tramo df
var_asp10 = request("varia18")    'dia ab
var_asp11 = request("varia19") ' dia bc
var_asp12 = request("varia20")  ' dia bd
var_asp13 = request("varia21")   ' dia de
var_asp14 = request("varia22")   'dia df

var_asp23 = request("varia23")
var_asp24 = request("varia24")
var_asp25 = request("varia25")
var_asp26 = request("varia26")


Dim fechaactual,d,m,a
fechaactual = Date()


d=Day(fechaactual)
m=Month(fechaactual)
a=Year(fechaactual)

fec=m&"/"&d&"/"&a&"-"&var_asp17

%>
<!--#include file="cnxBd.asp"-->
<%
	
	
'strSQL = "insert into instaladores (direccionp,nombre,resultado) values ('" & dato1 & "','" & dato2 & "','" & dato3 & "')" 

strSQL = "insert into calc_instaladores4 (nregistro,nombre1,nombre2,numdirec,disdirec,direccion2,num2,medidor,regulador,coding,art1,trambc,diambc,trambd,diambd,art2,tramde,diamde,art3,tramdf,diamdf,tramab,diamab,potencian,longe,fecha) values ('" & fec & "','" & var_asp16 & "','" & var_asp15 & "','" & var_asp18 & "','" & var_asp19 & "','" & var_asp20 & "','" & var_asp23 & "','" & var_asp24 & "','" & var_asp25 & "','" & var_asp26 & "','" & var_asp2 & "','" & var_asp6 & "','" & var_asp11 & "','" & var_asp7 & "','" & var_asp12 & "', '" & var_asp3 & "','" & var_asp8 & "','" & var_asp13 & "','" & var_asp4 & "','" & var_asp9 & "','" & var_asp14 & "','" & var_asp5 & "','" & var_asp10 & "','" & var_asp & "','" & var_asp1 & "','"&a&"/"&m&"/"&d&"')" 
   
    Conn.Execute(strSQL) 


   Conn.Close 
   set Conn = nothing 
   'Response.Redirect("ejem07d.asp") 
  

%>

<table width="529" border="0" cellspacing="0" cellpadding="0">
<tr>
    <td height="84" colspan="2" class="NormalTex" align="left" valign="top"><img src="logo.jpg"  border="0"/> </td>
    
  </tr>
<tr>
    <td height="37" colspan="2" class="NormalTex">Valores registrados para el CASO 4: </td>
    
  </tr>
  
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td class="NormalTex"><input type=button value="Cerrar" onclick="cerrarse()"></td>
  </tr>
</table>